home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d7
/
boyan401.arc
/
HOSTMSGS.BSC
< prev
next >
Wrap
Text File
|
1991-04-28
|
3KB
|
74 lines
\\ HOSTMSGS.BSC -- host mode message-handling script file
\\ This script is automatically invoked in the "Messages" block
\\ by the HOST.BSC (main host mode) script file.
\\ Abort script if not invoked in "Messages" block:
\DM[Press <Alt-I> to invoke Host Mode.]\AB
|Messages \\ Host Mode "Messages" menu
{Message select ([L]ist, [E]nter, [R]ead, [D]elete, [Q]uit): `
\RV0[1]{\( \\ Read 1 char
\IV0+Q[\GS[HOST;Menu]] \\ If it's Q, go back to HOST script
\IV0+L[\GB[ListMsgs]] \\ Otherwise branch off appropriately...
\IV0+E[\GB[EnterMsg]]
\IV0+R[\GB[ReadMsg]]
\IV0+D[\GB[DeleteMsg]]
\GB[Messages] \\ Or circle around for more.
|ListMsgs \\ show all files named *.msg
Available messages:{
\DC[dir %V4*.msg /W > %V4`hosttemp.fil] \\ use DOS to list messages in file
\ULa[%V4`hosttemp.fil] \\ then ASCII-upload the temp file
\GB[Messages] \\ go back to Messages menu
|EnterMsg
Type a name for your message (1-8 letters): ________^H^H^H^H^H^H^H^H
\RV0[8]{\( \\ read in message name of up to 8 chars
\SV0[%V4%V0.msg] \\ make %V0 = full path\filename.msg
\FE+%V0[That message already exists.{\GB[Messages]]
=========== From: %V6 ==== %MO/%DA at %HR:%MI ==========={
\AF%V0[==== From: %V6 ==== %MO/%DA at %HR:%MI ====]
\FE-%V0[Unable to create message file %V0.{\GB[Messages]]
\AF%V0[]
Enter message. Hit <Return> on empty line when message is complete.{{
\TO[100] \\ set 100-second timeout for each line
\SV9[1] \\ line number counter, starts at 1
\BL[GetMsgLines] \\ get message, line-by-line
{Message %V0 accepted.{
\GB[Messages] \\ go back to Messages menu
|GetMsgLines
%V9> ` \\ prompt with current line number
\RV8[73]\( \\ read line of text into %V8
\AF`%V0[%V8] \\ Append line to message file %V0
\IV8+[\EB] \\ if %V8 is empty, end block
\+V9[1] \\ Otherwise, increment line number...
\GB[GetMsgLine] \\ ... and loop back for more.
|ReadMsg
Name of message to read: \RV0[8]{\( \\ prompt for name
\SV0[%V4`%V0.msg] \\ expand name to path\filename.msg
\FE-%V0[That message does not exist.{\GB[Messages]]
\ULa[%V0] \\ send file if it exists
\GB[Messages] \\ go back to message menu
|DeleteMsg
Name of message to delete: \RV0[8]{\( \\ prompt for name
\SV0[%V4%V0.msg] \\ expand name to path\filename.msg
\FE-%V0[That message does not exist.{\GB[Messages]]
\BL[SecondPW] \\ require secondary password
\IV0+CANCEL[\GB[Messages]] \\ go back if wrong password entered
\DC[DEL %V0] \\ otherwise use DOS to erase file
Message file %V0 deleted.{
\GB[Messages] \\ go back to message menu.
|SecondPW
Enter secondary password: \RV8[12]\( \\ prompt for secondary password
\IE-%V8,%V2[Wrong password.{\SV0[CANCEL]] \\ sets %V0 to CANCEL if wrong